home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 60
/
060.d81
/
box routine
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
547b
|
14 lines
40000 rem*******generate variables**********
40010 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
40020 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next:return
40030 rem*********print box*************
40040 oc=peek(646):poke646,bc:rv$="":ifrvthenrv$=""
40050 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
40060 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]"
40070 poke211,bx:poke214,by+1:sys58732:printrv$left$(bd$,bd*3)"":poke646,oc
40080 rv=0:return
40090 rem********make box grow**********
40100 bx=bx-1:by=by-1:ex=ex+1:bd=bd+2:return
40110 rem********make box shrink********
40120 bx=bx+1:by=by+1:ex=ex-1:bd=bd-2:return